From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 3 Aug 2007 03:38:58 +0000 (+0000)
Subject: (Fvisited_file_modtime): Use make_time.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~534^2~3^2~1972
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=2c902b217e238ddb7fa53827249befefe2e68259;p=emacs.git

(Fvisited_file_modtime): Use make_time.
---

diff --git a/src/fileio.c b/src/fileio.c
index 3859f9e35aa..1962035e0bd 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5692,11 +5692,9 @@ file modification time, this function returns 0.
 See Info node `(elisp)Modification Time' for more details.  */)
      ()
 {
-  Lisp_Object tcons;
-  tcons = long_to_cons ((unsigned long) current_buffer->modtime);
-  if (CONSP (tcons))
-    return list2 (XCAR (tcons), XCDR (tcons));
-  return tcons;
+  if (! current_buffer->modtime)
+    return make_number (0);
+  return make_time ((time_t) current_buffer->modtime);
 }
 
 DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime,